rest_inspec %>%
filter(boro == "Manhattan") %>%
plot_ly(x = ~inspection_date, y = ~score, color = ~grade, type = "scatter", mode = "markers", colors = "viridis") %>%
add_trace(opacity = 0.5, showlegend = F) %>%
layout(title = "Manhattan Scores over Time")